// .txt

beginzonescript;

variables;

short crime_tolerance = 5;
short last_abil;
short i;

body;

beginstate INIT_STATE;
	if (gf(101,4) == 0)
		sf(42,10,0);
	sf(42,11,0);
	
	set_name(19,"Sage Pavyl");
	set_level(19,26);
	set_boss_level(19,1);
	
	set_name(20,"Shaper Marzan");
	set_level(20,26);
	set_boss_level(20,1);

	set_name(24,"Agent Gray");
	set_level(24,26);
	set_boss_level(24,1);
	
	set_name(28,"Vener");
	
	set_name(29,"Pepoy");
	if (gf(101,4) > 0)
		erase_char(29);
		
	set_name(30,"Terrified Prisoner");
	
	set_name(31,"Commander Olon");
	set_level(31,30);
	set_boss_level(31,1);
	set_new_abil(31,20);
	
	set_name(32,"Sia");
	set_name(47,"Shaper Controller");
	set_name(48,"Shaper Controller");
	set_name(49,"Shaper Controller");
	set_boss_level(47,1);
	set_boss_level(48,1);
	set_boss_level(49,1);
	
	set_name(59,"Kitchen Servile");
	set_name(60,"Kitchen Servile");
	set_name(61,"Kitchen Servile");
	set_name(62,"Wine Steward");


//	add_range_to_group(first,last,whichg);

	if (gf(100,11) > 0) {
		print_str_color("Word of your infamy has gotten here before you. You are forever marked",3);
		print_str_color("  as a foe of the Shapers.",3);
		sf(41,3,1);
		}
	if (get_sdf(41,3) > 0) {
		make_zone_hostile();
		}
		else {
			print_str_color("This is a friendly fortress. You are able to rest.",2);
			revive_party();
			}	

	last_abil = get_current_tick();
	
	set_crime_tolerance(crime_tolerance);
	break;

beginstate EXIT_STATE;

break;

beginstate START_STATE;
	if ((gf(41,3) > 0) && (gf(100,3) == 2)) {
		sf(100,3,3);
		print_str_color("Now that Stormhold is angry with you, you will no longer be",3);
		print_str_color("  able to serve Alwan.",3);
		}
		
	// clear zone?
	//if ((zone_clear(ME) == FALSE) && (get_flag(,) > 0)) {
		//print_str_color("",2);
		//clear_zone(ME);	
		//}
		
	if ((get_crime_level() >= crime_tolerance) && (get_sdf(41,3) == 0)) {
		make_zone_hostile();
		set_flag(41,3,1);
		}

	if (gf(41,3) == 0) {
		if (gf(42,1) < 2) {
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"We must speak.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"I command your aid.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"I allow you here.");
			}
		if ((gf(42,1) >= 2) && (gf(100,3) < 3)) {
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"Do you need something?");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"I have new orders.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"My time is short.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"Must maintain our will.");
			if (get_ran(1,0,100) < 10)
				give_char_text_bubble(18,"Will never surrender.");
			}
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"I'm going ...");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"Where are my flasks?");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"It will be ready soon!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(19,"Be patient ...");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Be calm.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Hurry, my servant.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Maintain control!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Making ... contact.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(20,"Yes. Yes.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(24,"Have a seat.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(24,"Ease my tedium.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(24,"Don't taunt prisoners.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(28,"I didn't mean it.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(28,"I'm sorry!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(28,"I'll never drink again.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(28,"Spare me!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(29,"No.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(29,"Never submit.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(31,"Move along.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(31,"Don't look at it!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(31,"This area is secret.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"Chop it more finely!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"Hurry!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"Don't let it burn!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"Now start the bread.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"No more cake jokes!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(32,"Now deliver it.");

		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Watching.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Contacting.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Go west.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Go north.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Go south.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Go east.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Pause.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Investigate.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(47 + get_ran(1,0,2),"Withdraw.");


		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(59 + get_ran(1,0,2),"Hot dish!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(59 + get_ran(1,0,2),"On your right!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(59 + get_ran(1,0,2),"On your left!");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(59 + get_ran(1,0,2),"Need more salt.");
		if (get_ran(1,0,100) < 10)
			give_char_text_bubble(59 + get_ran(1,0,2),"Order in!");

		}
	
	if (((is_combat()) && (tick_difference(last_abil,get_current_tick()) > 0)) || ((is_group()) && (tick_difference(last_abil,get_current_tick()) > 12))) {
		last_abil = get_current_tick();
		
		if (gf(42,24) == 0)
			sf(42,24,1);
			else sf(42,24,0);
		}
		
	if ((gf(100,3) == 2) && (gf(41,3) == 0) && (char_ok(33)) && (dist_to_nav_point(33,1) > 1)) {
		approach_nav_point(33,1,1);
		}
break;

beginstate 10;
	set_terrain_string_range("Soldiers who violate the rules are brought to these poles for swift, harsh justice.",3);
break;

beginstate 11;
	set_terrain_string_range("The sign says - Private Stock. Reserved For Council.",3);
break;

beginstate 12;
break;

beginstate 13;
break;

beginstate 14;
break;

//	print_str("");
//	set_terrain_string_range(".",3);
//	set_terrain_string_range("The sign says - .",3);
